(repeat-complex-command): Signal real error on failure.

diff --git a/lisp/simple.el b/lisp/simple.el
index 67f0edb26288c94724c15f6ef562299f402e4e30..6331be187668ab4cda665b8eeafd120f325fb529 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -702,7 +702,9 @@ to get different commands to edit and resubmit."
          (or (equal newcmd (car command-history))
              (setq command-history (cons newcmd command-history)))
          (eval newcmd))
-      (ding))))
+      (if command-history
+         (error "Argument %d is beyond length of command history" arg)
+       (error "There are no previous complex commands to repeat")))))
 \f
 (defvar minibuffer-history nil
   "Default minibuffer history list.